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.TITLE PCpi^EfJ system EXERCISER TEST 
.EBREL 

/COPYRIGHT MAY 7. 1971 

/REV, D, REVISED APRIL 21, 1972 

/DIGITAL equipment CORPORATION, MAYNARD, MASS,, 01754 

/programmer: earl l, bouse 
/ 

/ 

/THIS PROGRAM IS DESIGNED To EXERCISE THE TRANSMITTER, RECEIVER AND 
/TELEPRINTERS PON THE 'DCOt-EB' AND DCOl-BB, THE PROGRAM WILL EXERCISE 
/FROM TO MI DCOl^EB'S OR 'BB' SIMULTANEOUSLY IN CONFIGURATIONS OF 

/U' TO 'S2' TELEtYPES, THE TEST STARTS BY TYPING A 'REPEATING' 

/CHARACTER SET SIMULTANEOUSLY ON ALE AVAILABLE TELETYPES AND THEN RUNS 
/A "FLOATING fELETYPE" TEST, IN THIS TEST, ONE TELETYPE ON EACH DCOIEB 
/UNIT IS LEFT 'SILENT' WHILE ALL REMAINING TELETYPES CONTINUE TYPING OUT 
/the CHARACTER SET, AFTER COMPLETING APPROXIMATELY TEN LINES OF CHARACTER 
/SETS THE 'SILENT' TELETYPE IS RE"STARTED AND ANOTHER TELETYPE IS LEFT 
/'SILENT', ANY character MAy BE TYPED IN ON THE 'SILENT' TELETYPE AND 
/IT WILL 'ECHO' back the CHARACTER THUS TESTING THE 'KEYBOARD' SECTION 
/OF THAT TELETYPE, PROVISION IS MADE TO 'HOLD' ANY SELECTED TELETYPE 
/IN AN 'ECHO' MADE I NOEF I NAtELY , THIS IS DONE VU TYPING A 'CNTR A' 

/ON ANY 'SILENT' IeLETYPe, A '#' WILL SE ECHOED BACK TO INDICATE 'ECHO 
/HOLD', followed VIA A NUMBER OF ' C TO 7' TO INDICATE THE DES I REd'TELE- 
/TYPE TO BE SELECTED AND TERMINATED BY 'CARRIAGE RETURN', TYPING 'RUBOUT' 
/WILL RUBOUT ANY PRECEEOING NUMBER AND TYPING A SECOND 'CNTR A' FOLLOWED BY 
/A 'CARRIAGE RETURN' WILL TERMINATE THE 'ECHO HOLD' MODE, 

/ 




707764 

A 

EBA=707764 





707702 

A 

EEM=707702 

/ 
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R 

604030 

A 

USERSW 

/ 

604030 


/I/O device with MULTI^APl # 70 
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R 

000031 

A 


31 


/unit #2 ADDRESS '72' , 
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R 

000032 

A 


32 


/UNIT n ADDRESS '74' , 

00003 

R 

W00033 

A 


33 


/unit #4 ADDRESS '73' 

0000 4 

R 

0*^0144 

R 


,DSA 

SLRVCE 


0000^ 

R 

0 0 0 31 

R 


,PSA 

IN IT 
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R 

040317 
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,SIXBT 

’OCOltBf 
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R 

6 1 0 5 0 2 

A 
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R 

020000 

A 

DATASW 

20000 


/DATA 'SW4' INHIBITS THE 'OCOl-EB'^ 
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R 


A 


, BLOCK 

/ 


00020 

R 

('100000 

A 

SYSERR 

0 


/ERROR INDICATOR FOR THE MONITOR 

00021 

R 

000000 

A 


0 


/W,C, FOR DATA WORD ERROR CODES, 

00022 

R 

000000 

A 

ERCODE 

0 



00023 

R 
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A 


0 



00024 

R 
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A 
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R 

000000 
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R 
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A 
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R 
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SRC 

DCOlr^RB system EXUfCISLR 

TEST 


o 

0»0v5l 

R 

0 3 0 0 0 

A 

/initialue the 
/ 

J N I T 0 

DCOlr-EBf test 


o 

o 

o 

000v5P 

R 

707764 

A 

EBA 



000v53 

R 

707702 

A 

EEM 





00034 

R 

200031 

R 

lAC 

I N I T 


o 

o 

0003^5 

R 

040144 

R 

PAC 

SERVCE 


000 3 6 

R 

140020 

R 

D2M 

SYSERH 

/Ct,EAR ERROR LOCATIONS 



00037 


1 4 0 0 21 

R 

D7M 

SYSERR*! 


o 

o 

00040 


140022 

R 

DHM 

ERCODE 



0004X 

R 

142010 

R 

P?!M 

ECHOl~ 




00042 

R 

142011 

R 

DZM 

ECH02 


o 

o 

00043 

If 

142012 

R 

OHM 

EGH03 



00044 

R 

142013 

R 

PHM 

ECH04 




0 0 0 4 S 

R 

777777 

A 

PAW 

”1 


o 

o 

00046 

R 

042014 

R 

PAC 

Sl'LTTl 



00047 

R 

042015 

R 

DAC 

SILTT2 



o 

00060 

R 

042016 

R 

PAC 

SI’LTT3 


o 

0006X 

R 

0^2017 

R 

PAC 

31LTT4 



000 6 2 

rR 

i'li 4 2 0 2 0 

R 

OAC 

31'LSWi 



o 

00063 

R 

042021 

R 

DAC 

StLSW2 


o 

0 0 0 6 4 

R 

0 42022 

R 

DAC 

StLSW3 



0 00 65 

R 

042023 

R 

OAC 

SILSW4 



O' 

00066 

R 

042030 

R 

DAC 

LONEl"’ 


o 

00067 

R 

042031 

R 

DAC 

UQNE2 



00060 

R 

042032 

R 

DAG 

LPNE3 



o 

00061 

R 

042033 

R 

DAC 

L0NE4 


o 

00062 

R 

042037 

R 

DAC 

KST0R4 



00063 

R 

042040 

R 

DAC 

KST0R5 



1 ^ 
o 

00064 

R 

042041 

R 

DAC 

KSTQR& 


o 

00066 

R 

042043 

ff 

DAC 

KSTQR6 



0 006 6 

R 

100460 

R 

JMS 

PISFL'C 

/disable scanner ANO tCUR' FLAGS UNIT #1 


o 

00067 

If 

202074 

R 

LAC 

(ACTIVl 


o 

000/0 

R 

042034 

R 

PAC 

kstori 

/ADDRESS OF UNIT #1'S ACTIVE TELEIYPES, 


00071 

R 

042044 

R 

OAC 

tempi " 




0 0 0 7 2 

R 

202075 

R 

LAC 

UCTJ V2 


o 

o 

0 00 73 

R 

042035 

R 

DAC 

KST0R2 

/UNIT #2 


000/4 

R 

202076 

R 

LAC 

( ACT! V3 




00075 

R 

042036 

R 

DAC 

KST0R3 

/UNIT #3 

o 

o 

000 7 6 

R 

2020/7 

R 

LAC 

(ACTJV4 



00077 

R 

042042 

R 

OAC 

KSTQR/’ 

/UNIT #4 



00100 

R 

777734 

A 

LAW 

f-44 


o 

o 

00101 

R 

[;) 4 20 4 6 

R 

DAC 

TEMP 2 



00102 

R 

777777 

A 

LAW 

”1 




00103 

R 

062044 

R 

PAC<» 

TEMPI 

/clear 'ACTIVE' teletype BUFFER, 

o 

o 

00104 

R 

442044 

R 

ISH 

TEMPI 



00105 

R 

442045 

R 

ISH 

TEMP 2 
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f? 

6 0 0 10 3 

R 

JMP 
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o 

0 0 1 0 7 

R 

772000 

A 

PAW 

r6000 


00113 

R 

i'l 4 2 0 6 1 

R 

PAC 

LQOPA 


0 01X1 

R 

4 2 0 6 2 

R 

DAC 

LODPB 

o 

00112 

R 

042063 

R 

PAC 

LUDPC 


001X3 

It’ 

042064 

R 

DAC 

LQOPD 


001X1 

R 

202100 

R 

LAC 

(PSTSW0+1 

o 

0 0 X 1 s 

R 

040161 

R 

DAC 

PSTSW0 


001X6 

R 

202X01 

R 

LAC 

(RECX 


00X17 

R 

040614 

R 

DAC 

USTSWl 

G 

00120 

R 

202X02 

R 

LAC 

(REC2 


3 0 1 2 X 

R 

040667 

R 

DAC 

U5TSW2 


00X22 

R 

202103 

R 

LAC 

(RLC3 

O 

00123 

R 

0 4 0 6 42 

R 

DAC 

USTSW3 


00124 

R 

202104 


LAC 

(REC4 


0 0 X 2 3 

n 

040716 

R 

DAC 

USTSW4 

O 

00X26 

R 

202106 

R 

LAC 

(600000 


00127 

R 

042066 

R 

DAC 

PASCNT 


00130 

R 

142024 

R 

D2M 

HLPTTi 

O 

00131 

1? 

142026 

R 

D2M 

HLPTT2 


00132 

R 

142026 

R 

P7M 

HLPTT3 


00133 

R 

142027 

R 

DHM 

HLDTT4 

O 

0 0134 

R 

776000 

A 

LAW 

-2000 


00136 

R 

0 4 2 0 6 6 

R 

DAC 

WAITCT 


00X3 6 

R 

101664 

R 

JMS 

HOLDSW 

o 

00X37 

R 

202106 

R 

LAC 

(2X5 


00X43 

R 

042046 

R 

DAC 

TEMP3 


00141 

R 

1F1326 

R 

JMS 

TRNSHT 

o 

00142 

R 

101346 


JMS 

setpkt 


00143 

R 

620031 

R 

jHpii 

IN IT 


/ 

O , EJECT 


TEST 


/WAIT counter for 'FLAG SET' TIHE 
/CHECK 'HOLD SWITCH' 

/ = TO 'CARRIAGE RETURN! , 

/INITIAUIZE all TTY'S WITH 'CARRIAGE RETURN' 
/SET UP 'ASCII' CHARACTER TABLES, 


o 

o 

o 

o 

o 

o 

o 


o 
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o 
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o 





/service routine 
/ 

: FOR THE 

"DCOl-EB" TEST 



o 


001 A 4 

R 

!;,) 0 0 00 0 

A 

/ 

SERVCE 0 






o 

0 0 1 4 b 

R 

707/64 

A 

E8A 





o 


00146 

R 

707/02 

A 

EEM 







00147 

R 

0 4 2 0 / 0 

R 

OAC 

SAVEAU 

/SAVE CONTENTS QF >ACi , 




o 


R 

620151 

R 

J H P 

USTSW0 




O 


001^1 

R 

000000 

A 

DSTSW0 0 







0 0lb2 

R 

202066 

R 

EAC 

WAITCT 





o 

001i?.5 

R 

740200 

A 

SHA 


/HAVE TELETYPES BEEN SET UP? 



o 


0015p4 

R 

600227 

R 

siMP 

chkfec 

/NO, CHECK ACTIVE TTYIS 





0011? 53 


7777/7 

A 

LAW' 






o 

0015?6 

R 

042072 

R 

DAC 

flgdRv 

/SET "NO'^FLAG" INDICATOR, 



o 


001537 

R 

101664 

R 

JMS 

HOEUSW 

/CHECK FOR THE HOUO SWITCH, 





00160 

R 

1 0 0 3 0 3 

R 

UMS 

C H K T R N 

/CHECK transmitter AND RECEIVER FLAGS. 




o 

0016 1 

R 

442061 

R 

ISH 

EUOPA 

/ECHO UNIT 



o 


00162 

R 

741000 

A 

SKP 







00163 

R 

101002 

R 

JM5 

FEOATl 

/YES, Float next tty 




o 

00164 

R 

442062 

R 

IS2 

EdOPB 

/ECHO UNIT n 



o 


00166 

R 

741000 

A 

SKP 







0016 6 

R 

X 0 1 0 6 / 

R 

JHS 

FEOAT2 

/YES, Float next tty, 




o 

00167 

R 

442063 

R 

IS2 

EOOPC 

/ECHO unit #3 



o 


00170 

R 

741000 

A 

SKP 







00171 

R 

101154 

R 

JMS 

FE0AT3 

/yes, float next tty, 




o 

00172 

R 

4 42 0 6 4 

R • 

ISH 

Eciopp 

/ECHO UNIT #4? 



o 


001/3 

R 

741000 

A 

SKP 







00174 

R 

101241 

R 

JMS 

FEQAT4 

/YES, Float next tty. 




o 

00176 

R 

202030 

R 

EAC 

EONEl 




o 


00176 

R 

741200 

A 

SNA 


/IS only '3.1 teletype available? 





00177 

R 

601/32 

R 

JMP 

EXITM5 

/yes, exit 




o 

00200 

R 

2020/2 

R 

EAC 

FUGDRV 




o 


00201 

R 

740200 

A 

SHA 


/WERE any flags SeT? 





0020 2 

R 

60173/ 

R 

JMP 

NUFEAU 

/NO, EXIT 




o 

00203 

R 

2 0 2 0 3 7 

R 

EAC 

KST0R4 




o 


00 20 4 

R 

740100 

A 

SNA 







00205 

R 

600222 

R 

JMP 

EXIT 





o 

00206 

R 

2 0 2 0 4 0 

R 

EAC 

KSTOR5 




o 


00207 

R 

740100 

A 

SMA 







00210 

R 

600222 

R 

JMP 

EXIT 





o 

00211 

R 

202041 

R 

EAC 

KSTOR6 




o 


00212 

R 

740100 

A 

SMA 







00213 

R 

6 0 2 2 2 

R 

JMP 

EXIT 





o 

00214 

R 

202043 

R 

EAC 

KSTOR6 




o 


00215 

R 

740100 

A 

SMA 







00216 

R 

600222 

R 

JMP 

EXIT 





o 

0021/ 

R 

4 4 2 0 0 5; 

R 

ISH 

PASCNT 

/increment THE PASS COUNTER, 



o 


00220 

R 

741000 

A 

SKP 







00221 

R 

601/24 

R 

JMP 

EXITM4 

/ON OVERFLOW, TYPE ’DQNES 




o 

00222 

R 

705512 

A 

EXIT RPE 





o 


00223 

R 

751100 

A 

SPAJCEA 


/IS »APp ON? 





00224 

R 

2 2 0 7 0 

R 

LAC 

saveac 

/yes, restore 'AC 




o 

00225 


703344 

A 

OBR 


/NO, EXIT 



o 


00226 

R 

6 2 0 1 4 4 

R 

JMP<> 

SERVCE 
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Ptoi-EB SYST£M EXtRCISER TEST 
.EJECT 



PAGE 6 OC'^IEB SRC DCOl-^EB SYSTEM EXERCISER jEST 

/DETERMINE THE iNB, OE AyAIEABEE TTY'S AND SET UP 
/A "ACTIVE" TTY BUpEER FOR EACH UNIT. 


/ 



R 

401610 

R 

QHKFIG 

XCT 

SSFl 


R 

6 0 0 24 0 

R 


JHP 

CKFLD^^ 

002.51 

R 

401614 

R 


XCT 

RSPl 

00232 

R 

502107 

R 


AMD 

r/000 

00233 

R 

101644 

R 


JMS 

R0T9R 

0023^ 

R 

062034 

R 


QACi» 

KSTORl 

00235 

R 

4 4 2 0 4 

R 


IS2 

KSTQRi 

0 0 23 6 

R 

401634 

R 


XCT 

STSl 

0 023 7 

R 

600227 

R 


JMP 

CHKFLtJ 

00240 

R 

401011 

R 

CKF|,G2 

XCT 

S3F2 

00241 

R 

6 lu 0 2 5 1 

H 


JMP 

CKFLG3 

00 2 42 

R 

4 0 161 5 

R 


XCT 

RSQ2 

00243 

R 

502107 

R 


AND 

( 7000 

0 0 2 4 4 

R 

101644 

R 


JMS 

RQT9R 

00245 

R 

062035 

R 


DACiJ 

KST0R2 

00246 

R 

442035 

R 


ISZ 

K3T0R2 

00247 

R 

4 0 16 3 5 

R 


XCT 

STS2 

00250 

R 

600240 

R 


JMP 

CKFLG2 

00251 


401612 

R 

CKPLC^3 

XCT 

SSF3 

00252 

R 

600262 

R 


JMP 

QKFUG4 

00253 

R 

4 0 1 6 :i a 

R 


XCT 

RS03 

0 0254 

R 

502107 

R 


AND 

( 7000 

00255 

R 

101644 

R 


JMS 

HQT9R 

00 256 

R 

062036 

R 


OAC^^ 

KST0R3 

00257 

R 

442036 

R 


IS2 

KST0f^5 

0 0 26 0 

R 

401636 

R 


XCT 

StS3 

00261 

R 

600251 

R 


JMP 

CKFLG3 

00262 

R 

401613 

R 

gKFUG4 

XCT 

SSF4 

00263 

R 

600273 

R 


JMP 

LXTCKF 

00264 

R 

401617 

R 


XCT 

RSP4 

00265 

R 

502107 

R 


AND 

( 7000 

0 026 6 

f? 

101644 

R 


JMS 

R0T9R 

00267 

R 

062042 

R 


OAC'» 

KST0R7 

00270 

R 

442042 

R 


ISI 

KSTOR/ 

00271 

R 

401637 

R 


XCT 

STS4 

00272 

R 

600262 

R 


JMP 

CKFLG4 

00273 

R 

442066 

R 

FXTCKF 

IS2 

WAI TCT 

002/4 

R 

601732 

R 


JMP 

EXiTM5 

00275 

R 

1420/2 

ft 


DHM 

FUGPRV 

002/6 

R 

202110 

R 


LAC 

(212 

00277 

R 

042046 

R 


PAC 

TEMP3 

00300 

R 

101664 

R 


JMS 

HPLDSW 

00301 

R 

1 0 1326 

R 


JHS 

TKNSMT 

00302 

R 

600222 

R 


JMP 

EXIT 


/ 


.EJECT 


/IS UNIT #l scanner flag SET? 

/NO, check unit #2 

/read Scanner data and clear flag, 

/MASK scanner LINE NO, 

/SAVE Scanner address 

/clear scanner flags RESTART THE SCANNER, 
/recheck scanner flag 

/SCANNER #2 FLAG SET? 

/NO, check unit #3 

/READ Scanner DATA AND CLEAR FLAG 


/save Scanner address 

/clear scanner flag s. restart scanner, 

/RECHECK SCANNER FLAG 

/IS UNIT #3 SCANNER FLAG SET? 

/CHECK UNIT #4, 

/READ SCANNER DATA AND CLEAR FLAG 

/mask Scanner line no, 

/save Scanner address 

/clear scanner flags restart the scanner, 

/RECHECK FLAG 

/IS UNIT #4 SCANNER FLAG SET? 

/NO, EXIT 

/READ SCANNER DATA AND CHAR FLAG, 


/SAVE Scanner address, 
/RESTART THE SCANNER, 

/all flags had time to Set? 

/NO, EXIT ".,5", 

/clear "NO^’FLAG" imoicatoh 
/=TO line feed 

/CHECK FOR HOLD SWITCH, 
/START TEST 



o 
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DC01ER 
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TEST 


o 





/CHECK 

UNIT //1,2?3 ANP- 4 FOR 

ANY transmitter FLAGS FOR BEING SET 

o 



R 

0 000 0 

A 

CHKTRN 

f 

0 




o 



202FJ24 

R 


L,AC 

HUPTTl 


o 


00305 

R 

740200 

A 


SHA 


/WAS THE HOLD SWITCH SET? 



30306 

F^ 

600312 

R 


JMP 

» +4 

/YES, Process data. 


o 

00307 

R 

401610 

R 


XCT 

sspi 

/IS UNIT Ui. scanner flag SET? 

o 


00310 


600326 

R 


JMP 

CHKTR2 

/no, check UNIT #2, 



00311 


401614 

R 


XCT 

RSDl 

/READ scanner data, 


o 

0031^ 

R 

1420/2 

R 


0/M 

F UGDRV 

/yes. Clear "no-flag" indicator. 

o 


00313 

R 

142024 

R 


D/M 

FFUDTTl 

/clear the 'HOLD SET' INDICATOR, 



003:H 

R 

042044 

R 


DAC 

TEMPI ■' 

/SAVE Data 


o 

00315 

R 

502107 

R 


ANP 

(/000 


o 


00316 


101644 

R 


JMS, 

RQT9R 

/rotate right '9' , 



00317 

R 

542014 

R 


SAD 

SlUTTl 

/=TU SILENT TTY? 


o 

00320 

R 

600456 

R 


JMP 

CKRECi 

/yes, check receiver data 

o 


00321 

R 

342111 

R 


TAD 

(tabeei 

/CALCULATE PRINT BUFFER ADDRESS 



0 0 322 

R 

100414 

R 


JMS 

PKTCHR 

/SETUP THE NEXT CHARACTER 


o 

30323 

R 

1 0 0 000 

A 


100000 


/ = TO UNIT itX 

o 


0 03 2 4 

R 

4 0 1 6 0 

R 


XCT 

SCSI 

/TRANSMIT next CHARACTER 



00325 

F‘^ 

600304 

R 


JMP 

CHKTRN+1 

/CHECK next flag 


o 






/ 



o 






/check 

UNIT #2 

TRANSMITTER FLAGS 


o 

00326 

R 

202025 

R 

CHKTR2 

UAC 

HUPTTJfJ 


o 


00327 

R 

740200 

A 


S2A 





00330 

I'^ 

6 1 '.' 03 3 4 

R 


JMP 

, t4 



o 

00331 

f? 

401611 

R 


XCT 

SSF2 

/IS UNIT #2 SCANNER FLAG SET? 

o 


00332 

R 

600350 

R 


JMP 

CHKTRv5 

/NOi check UNIT #3 



00333 

R 

401615 

R 


XCT 

RS02 

/READ SCANNER DATA 


o 

00334 

R 

142072 



D/M 

FLGDRV 

/YES, Clear "nobFlag" indicator, 

o 


00335 

R 

142025 

R 


D/M 

HLDTT2 




0 033 6 

R 

0 4 20 4 4 

R 


DAC 

tp:mpi ' 

/SAVE DATA 


o 

00337 

R 

502107 

R 


AND 

( 7000 


o 


00340 

R 

1 k5 1 6 4 4 

R 


JMS 

RUT9R 

/ROTATE RIGHT '9' , 



00341 


542015 

R 


SAD 

SIUTT2 

/=TO silent tty? 



0034 2 

R 

600531 

R 


JMP 

CKREC2 

/yes, check receiver data 

o 


00343 

r\ 

n 

342112 

R 


TAD 

(TABUE2 

/CALCULATE print BUFFER ADDRESS 



00344 

R 

100414 

R 


JMS 

PRTCHR 

/SETUP THE NEXT CHATACTER 


o 

0 034 5 

R 

2 0 h 0 0 0 

A 


200000 


/=TO UNIT #2 

o 


003 4 6 

R 

4 0 1 6 '-F 1 

R 


XCT 

SUS2 

/TRANSMIT NEXT CHARACTER 



0 0 34 7 

R 

600326 

R 


JMP 

CHKTR2 

/CHECK NEXT FLAG, 


o 






/ 



o 







, EJECT 





o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



a OCyllrIB SRC pcoi^-cb system exerciser test 


/CHECK UNIT TRANSMITTER 
/ “ 


0M3^0 

R 

202026 

R 

CHKTR3 

LAC 

HL0TT3 

003!p1 

R 

740200 

A 


S/A 


0035:)^ 

f? 

600366 

R 


JMP 



R 

401612 

R 


XCT 

SSF3 

0 0 3 & 4 

R 

6 0 0 3/2 

R 


JMP 

CHKTR4 


R 

401616 

R 


XCT 

R3D3 

0 0 3 6 

R 

142072 

R 


D/M 

FLGDRV 

003i?7 

R 

142026 

R 


D/M 

HL0TT3 

0 0 36 0 

1^ 

0 4 20 4 4 

R 


DAC 

TEMPI 

003 61 

R 

502107 

R 


AND 

( 7000 

0036 2 

!'^ 

101644 

R 


JMS 

RQT9R 

00363 

R 

542016 

R 


SAD 

SILTT3 

0 0 36 4 

R 

6 0 0 6 0 4 

R 


JMP 

ckreg3 

00366 

R 

342113 

R 


TAD 

(TABLES 

00 366 

R 

1 0 1^5 4 1 4 

R 


JMS 

PRTCHH 

0036 7 

R 

300000 

A 


300000 


00 370 

R 

401642 

R 


XCT 

SLS3 

003/1 

R 

600360 

R 

/CHECK 

JMP 

UNIT #4 
/ 

LAC 

GHKTR‘5 

transmitter 

00372 

R 

202027 

R 

CHKTR4 

HLDTT4 

003/3 

R 

740200 

A 


S/A 


00374 

R 

600400 

R 


JMP 

,*4 

0 0 3 7 6 

R 

401613 



XCT 

SSF4 

00376 

R 

620303 

R 


JMP^^ 

chktrn 

00377 

R 

401617 

R 


XCT 

RSD4 

00400 

R 

142072 

R 


D/M 

FLGDRV 

00401 

R 

142027 

R 


0/M 

HLDTT4 

00402 


0420 44 

R 


DAC 

TEMPI 

00403 

R 

502107 

R 


AMD 

(7000 

00404 

R 

101644 

R 


JMS 

R0T9R 

00 406 

R 

542017 

R 


SAD 

SILTT4 

00406 

R 

6 0 06 6 7 

R 


JMP 

CKREC4 

00407 


342114 

R 


TAD 

(TABLE4 

00410 

R 

1 i'3 0 4 1 4 



JMS 

PRTCHH 

00411 

R 

4 0 00 0 0 

A 


400000 


00412 

R 

401643 

R 


XCT 

SLS4 

00 413 

R 

600372 

R 


JMP 

/ 

CHKTR4 


lEJECT 


FLAGS 


/IS UNIT #3 scanner flag SET? 

/NO# check unit /M, 

/READ SCANNER DATA 
/clear ’’NO^FLAG” INDICATOR, 

/SAVE Data 


/=tq silent tty? 

/yes, check receiver data 
/calculate the print buffer address 
/setup the next character 
/“TO unit UZ 

/transmit next character 
/CHECK next flag 
flags, 


/IS UNIT UA scanner FLAG SET? 

/NO# EXIT 

/read Scanner data 


/SAVE data, 


/=TO SILENT TTY? 

/YES, CHECK receiver DATA 
/calculate the PRINT BUFFER ADDRESS 
/SETUP THE NEXT CHARACTER 
/=TO UNIT UA 

/TRANSMIT NEXT CHARACTER 
/CHECK NEXT FLAG, 



y DC01EB SHC UCOl'-EB SYSTEM EXpCiStR TEST 

/SUBROUTINE TO COMPARE TRANSMITTED UATA AND SETUP TO TRANSMIT THE NEXT 
/CHARACTER, ENTERED WITH PRINT 'BUFTER ADDR' IN 'AC', AND EXIT WITH THE 
/NEXT CHATACTER TO BE TRANSMITTED IN 'AC. 


/ 


00 414 

R 

000000 

A 

PRTCHR 

0 


0041t> 


iJ 4 2 0 4 5 

R 


DAC 

Tfe;MP2 

00416 

R 

220414 

R 


LAC-» 

PRTCHR 

00417 

R 

0420/6 

R 


DAC 

UNIT 

00420 

R 

440414 

R 


I S2 

PRTCHR 

,00421 

R 

222045 

R 


LACtt 

TEMP2* 

00422 

R 

342046 

R 


DAC 

T£Mp3 

0 0 4 20 

R 

202044 

R 


lAC 

TEMPI 

00424 


502115 

R 


AND 

(3/7 

0042!^ 

R 

741200 

A 


SMA 


0 0 4 26 

R 

600462 

R 


JMP 


00427 

R 

562046 

R 


SADiJ 

TEMp6 

00460 

R 

741000 

A 


SKP 


00461 

R 

101744 

R 


JHS 

ERRORl 

00462 

R 

462045 

R 



TEMP2 " 

0 0 4 6 6 

R 

222045 

R 

PRCHRl 

EAC^^ 

TEMP2 

00 4 6 4 


042046 

R 


DAC 

TEMP 3 

00465 

R 

222046 

R 


L A C 

TEMP3 

00466 

R 

741200 

A 


SNA 


00467 

R 

600445 

R 


JHP 

RESETP 

00440 

R 

202044 

R 


UAC 

tempi 

00441 

R 

502107 

R 


AND 

( 7000 

00442 


362046 

R 


T AD^» 

TEMP3 

0 0 4 43 

R 

342116 

R 


TAD 

(400 

00 4 4 4 

R 

620414 

R 


JHP<> 

/ 

PRINT 

V 

EAC 

PRTCHR 





/RESET 

tabee pointer 

00 4 4 5 

R 

202117 

R 

RESETP 

(PRTTAB 

00446 

R 

062045 

R 


D A C 

TEMP2 

004 4/ 

R 

600466 

R 


JMP 

/ 

PRCHRl 


/disable scanner and CI,EAR 


/ 


0 0 4 50 

R 

000000 

A 

D I SPEC 0 


00451 

R 

401620 

R 

XCT 

DISl 

0 0 4 52 

R 

401621 

R 

XCT 

DIS2 

00453 

R 

401622 

R 

XCT 

DIS3 

00454 

R 

401626 

R 

XCT 

DIS4 

00455 

R 

620450 

R 

jMP^i 

D I SPEC 


.EJECT 


/store selected TTY'S PRINT BUFFER 
/STORE FAILING UNIT N0, 


/=TO PRINT TABLE ADDRESS POINTER 

/SCANNER DATA 

/mask 'CHARACTER' BITS, 

/=TO '0' FROM restarted TTY? 
/yes, DON'T COMPARE DATA, 

/SAME AS TRANSMITTED DATA? 

/YES, CONTINUE 

/NO, DATA transmit ERROR 

/INCREMENT TABLE POINTER 


/=T0 NEXT character Tq BE TRANSMITTED 
/END OF Table? 

/YES, RESET table POINTER 
/ORIGINAL scanner DATA 
/MASK SCANNER ADDRESS 
/ADD 'NEW' character 
/-TO CLEAR THE 'TR' FLAG, 


/reload print table 


flags, 


/unit #1 
/unit #2 

/UNIT #3 
/UNIT 



PAGt 10 OC01EB GRC PCOt^EB SYSTEM EXERCISER TEST 

/CHECK THE RECEIVER DATA FROM UNIT «1'S SILENT TELETYPE AND ENABLE THE 






/’’ECHO 

HOLD" 

/ 

LAC 

MODE, IF "CNTR 

0 0 4 !p 6 

R 

202020 

R 

ckreci 

SILSWl 

004i;7 

R 

740200 

A 


S7A 

0 0 4 6 0 

R 

600526 

R 


JMP 

CLRFGI 

00461 

R 

202101 

R 


LAC 

(RECl ' 

00462 

R 

042060 

R 


DAC 

TYPDATA 

00463 

R 

202120 

R 


LAC 

(CLRFGI 

00464 

R 

(342057 

R 


DAC 

CKREC" 

00 4 6 5 

R 

202121 

R 


LAC 

(KST0H4 

00 4 6 6 

R 

042050 

R 


DAC 

TP.MP5 

00467 

R 

202074 

R 


LAC 

( ACTIVI 

0 ['H 7 0 

R 

042051 

R 


DAC 

U:mp6' 

00471 

R 

202122 

R 


LAC 

(ECHOl 

00472 

R 

042052 

R 


DAC 

TEMP7 ■■ 

00473 

R 

202123 

R 


LAC 

(LQOPA 

00474 

H 

042056 

R 


DAC 

TLMPU 

0 0 4 7 5 

R 

202044 

R 


LAC 

TEMPI ■' 

00476 

R 

502115 

R 


AND 

(377 

00477 

R 

542124 

R 


SAD 

(201 

00500 

R 

741000 

A 


SKP 


00501 

R 

620514 

R 


J M P 

DSTSWl 

0050 2 

R 

202010 

R 


LAC 

LCHOl ” 

00503 

R 

740200 

A 


S'£A 


00504 

R 

620514 

R 


JMPtt 

PSTSWl 

005 0 5 

R 

777777 

A 


LAW 

130506 

R 

042010 

R 


DAC 

ECJHOl 

00 50 7 

R 

042037 

R 


DAC 

kstoR"^ 

00510 

R 

202125 

R 


LAC 

(DECODE 

00511 

R 

040514 

R 


DAC 

PSTSWl 

00512 

R 

202126 

R 


LAC 

(243 

00513 

R 

60 0515 

R 


JMP 

RECl 

00514 

P 

000000 

A 

DSTSWl 

0 

/ 

DAC 


00515 

R 

042047 

R 

RECl 

TEMP4 

00516 

H 

202044 

R 


LAC 

TEMPI 

00517 


502107 

R 


AND 

(7 000 

00520 

R 

342047 

R 


TAD 

TEMP4 

00521 

R 

342116 

R 


TAD 

(400 

00522 

R 

401640 

R 


XCT 

SLSl 

00523 

R 

7777/7 

A 


LAW 

«1 

0052 4 

R 

4 20 2 0 

R 


DAC 

SILSWI 

00525 

R 

600304 

R 


JMP 

/ 

D2M 

CHKTRN+1 

00526 

R 

142020 

R 

clrfgi 

SILSWI 

00527 


4 0 1 6 3 4 

R 


XCT 

STSl 

00530 

R 

600304 

R 


JMP 

CHKTRN+1 


.EJECT 


" IS typed. 


/HAS SILENT TTY BEEN SET UP? 

/NO, CLEAR TTY FLAG, 

/=TO THE ADDRESS TO 'ECHO' UNIT ttl, 

X=TO THE ADDRESS TO 'UNIT' REC, ROUTINE 

/ADDRESS TO STORE SELECTED SCANNER ADDR 


/restore scanner data 
/MASK character 'BITS'. 

/WAS "cntr a" typed? 

/NO, CONTINUE 

/IS "ECHO HOLD" ACTIVE? 
/yes, ignore all "CNTR A'S" 

/NO, enable "ECHO HOLD", 


/set up To decode selected TTY, 

/type TO INDICATE 'ECHO HOLD' MODE 


/SAVE character to BE TRANSMITTED 
/MASK SCANNER ADDRESS 

/add character 

/=TO CLEAR THE 'TR' FLAG, 

/transmit 


/EXIT 


/clear silent tty flag, 
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o 





/CHECK 

THE RECEIVER pAJA FROM 

unit "2'S sieent teuetype and 






/ENABLE 

THE 

’’ECHO HOLD” mode 

IE "CNTR A" IS TYPED, 

o 

00 531 


202021 

R 

CKREC2 

UAC 

SILSW2 



00532 

R 

749209 

A 






00533 

R 

6 0 0 6 0 1 

R 


JMP 

CLRFG2 


o 

00531 

R 

202102 

R 


EAC 

(REC2 ‘ 



00535 

R 

042960 

R 


DAC 

TYPDATA 



00536 


292127 

R 


LAC 

(CLRFD2 


o 

00537 

R 

042057 

R 


DAC 

CKREC 



00540 

R 

202139 

R 


LAC 

(KST0H5 



00541 

R 

042059 

R 


OAC 

TEMP5' 

/ADDRESS TO STORE SELECTED SCANNER ADDR 

o 

90542 

R 

2929/5 

R 


LAC 

rACTIV2 



00543 

R 

942951 

R 


DAC 

TEMP6" 



005 4 4 

R 

202131 

R 


LAC 

(ECH02 


o 

00545 


042952 

R 


DAC 

TEMPV' 



005 4 6 

R 

292132 

R 


LAC 

(LOOPB 



00547 

R 

042956 

R 


DAC 

TEMPli 


o 

00550 

R 

292944 

R 


LAC 

tEMPl ” 

/RESTORE SCANNER DATA 


00551 

R 

502115 

R 


AND 

(377 

/mask character 


00552 

R 

542124 

R 


SAD 

(201 

/WAS iCNTR A' TYPED? 

o 

00553 

R 

741909 

A 


SKP 




00554 

R 

620567 

R 



PSTSW2 

/NOi CONTINUE 


00555 

R 

292011 

R 


LAC 

ECH02 ' 


o 

0 9 556 

R 

740209 

A 


SHA 


/IS "ECHO HOLD" ACTIVE? 


00557 

R 

620567 

R 



DSTSWf 

/YES, IGNORE ALL "CNTR A'S", 


00569 

R 

7777// 

A 


LAW 



o 

00561 

R 

042011 

R 


OAC 

E C H 0 2 

/NO, ENABLE "ECHO HOLD" 


90562 

R 

042949 

R 


DAC 

KST0R5 



00563 

R 

202125 

R 


LAC 

(DECODE 


o 

00564 

R 

0 4 9 5 6 7 

R 


DAC 

DSTSW2 

/set up to decode SELECTED TTY, 


00565 

R 

202126 

R 


LAC 

(243 

/TYPE TO indicate 'ECHO HOLD' MODE 


00566 

R 

6005/0 

R 


JMP 

REC2 


o 

00567 

R 

090990 

A 

OSTSW2 

0 




00570 

R 

042047 

R 

REC2 

DAC 

TEMP4 

/SAVE character TO BE TRANSMITTED 

o 

005/1 

R 

292944 

R 


LAC 

TEMPI 



00572 

R 

592197 

R 


AND 

(/000 

/MASK SCANNER ADDRESS 


00573 

R 

342047 

R ■ 


TAD 

TEMP4 

/add character 

o 

00574 

R 

342116 

R 


TAD 

(400 

/-T clear the 'TRt FLAG, 


00575 

R 

491641 

R 


XCT 

BLS2 

/TRANSMIT 


0 0 5/6 

R 

777777 

A 


LAW 

’’1 


o 

0057 7 

R 

042021 

R 


OAC 

SILSW2 



09600 

R 

600326 

R 


JMP 

CHKTR2 

/EXIT 

o 

00601 

R 

142921 

R 

CCRFG2 

/ 

DHM 

SILSW2 



0060;:’ 

R 

4 0 16 35 

R 


XCT 

STS2 



00603 

R 

600326 

R 


JMP 

CHKTR2 


o 






.EJECT 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 


o 


o 


o 

o 




o 


u 



PAGF. 12 DCl<):iFB SRC DCOl-rEB SYSTEM EXERCISER TEST 

/CHECK THE RECEIVER DATA F’ROM UNIT ’ S SIEENT TELETYPE 
/AND enable the ’’ECHO HOLD" MODE IF ”CNTR AM’ IS TYPED, 

/ 


0 0 6 U 4 
0 0 6 0 5 

R 

R 

202022 

740200 

R 

A 

CKREC3 

LAC 

S7,A 

SILSW3 

0 0 6 0 6 

R 

600654 

R 


JHP 

CLRFG3 

0 0 60 7 

R 

202X03 

R 


LAC 

(REC3 

00610 

R 

042060 

R 


DAC 

typdata 

00611 

R 

202133 

R 


LAC 

(CLRFG3 

0 0 612 

R 

042057 

R 


OAC 

CKREC 

00613 

R 

202134 

R 


LAC 

(KST0R6 

0 0 614 

r-j 

042050 

R 


DAC 

TEMP5 

00615 

R 

202076 

R 


LAC 

( ACTI V3 

00616 

R 

042051 

R 


DAC 

TEMP6 

00617 

R 

202135 

R 


LAC 

(ECH03 

006 20 

R 

042052 

R 


DAC 

TEMP7 

00621 

R 

202136 

R 


LAC 

(LooPc 

0 06 22 

R 

042056 

R 


DAC 

TEMPI! 

00623 

f? 

202044 

R 


LAC 

TEMPI 

0 0 6 2 4 

R 

502115 

R 


AND 

(377 

00625 

R 

542124 

R 


SAD 

(201 

00626 

R 

741000 

A 


SKP 


00627 

R 

620642 

R 


JHP^J 

PSTSW3 

00630 

R 

202012 

R 


LAC 

ECHOS 

00 6 31 

R 

740200 

A 


S2A 


00632 

R 

620642 

R 


JMP'<i 

DSTSW3 

00633 


111 /ii 

A 


LAW 

”1 

00634 

R 

042012 

R 


DAC 

ECM03 

006 3 5 


042041 

R 


DAC 

KSTOR6 

0 0 63 6 

R 

202125 

R 


LAC 

(DECODE 

00637 

R 

040642 

R 


DAC 

OSTSW3 

00640 

R 

202126 

R 


LAC 

(243 

00641 

R 

600643 

R 


JMP 

REC3 

00642 

R 

000000 

A 

OSTSW3 

0 

/ 

DAC 


00643 

R 

042047 

R 

REC3 

TEMP4 

0 0 6 4 4 

R 

202044 

R 


LAC 

TEMPI 

00645 

R 

502107 

R 


AND 

(7000 

00 6 4 6 

R 

342047 

R 


TAD 

TEMP4 

00647 

R 

342116 

R 


TAD 

(400 

00650 


401642 

R 


XCT 

SLS3 

0.0 6 51 

R 

mill 

A 


LAW 


00652 

R 

042022 

R 


DAC 

sii,sw;j 

00653 

R 

609350 

R 


JMP 

/ 

D2M 

CHKTR3 

00654 

R 

142022 

R 

CLRFG3 

SJLSW3 

00 655 

R 

4 0 16 36 

R 


:<CT 

STS3 

006 56 

R 

600350 

R 


JHP 

, EJECT 

CHKTR3 


/ = TO THE address TO ’’ECHO” UNIT U~6 


/MASK character BITS 
/WAS ”CNTR A” TYPED? 

/nOf continue 

/YES 

/IS ’’ECHO HOLD” ACTIVE? 

/YES, IGNORE ALL ”CNTR A’S”, 

/NO| enable ”f;cho hold" 


/SAVE character TO BE TRANSMITTED 
/MASK SCANNER ADDRESS 

/TRANSMIT 

/EXIT 



PAGE 


PC/)lEli SRC 


DCOlrEB SYSTEM EXERCISER TEST 


o 


/CHECK THE RECEIVER DATA FROM UNIT #4'S SIEENT TELETYPE. 


/AND enable the 
/ 


echo HOLP" mode IE "CNTR A2 is typed, 


o 

0 0 6 i? 7 

R 

202023 

R 

CKREC4 

l,AC 

SJLSW4 



00660 

R 

740200 

A 


S2A 




00661 

R 

600727 

R 


JMP 

CLRFD4 


o 

00662 

R 

202104 

R 


UAC 

(REC4'* 



0 0 6 6 3 

R 

0 4 206 0 

R 


OAC 

TYPDATA 

/=T0 THE ADDRESS TO "ECHO" UNIT #4, 


00664 


202137 

R 


UAC 

(CLRFG4 


o 

00 6 65 

R 

042037 

R 


DAC 

CKREC 



00 6 66 

R 

202140 

R 


lAC 

(KSTDRS 



00667 

R 

042030 

R 


DAC 

Tt;MP3 


o 

00670 

R 

202077 

R 


LAC 

UCTI V4 



00671 

R 

042031 

R 


DAC 

TLMP6 ■ 


o 

00672 

R 

202141 

R 


LAC 

(eCHQ4 


00673 

R 

042032 



UAC 

TLMP/'^ 



0 0 6 7 4 

R 

202142 

R 


LAC 

aooPD 


o 

0 0 67 5 

f? 

042036 

R 


DAC 

TLMPli 


00676 

R 

202044 

R 


LAC 

TLMPl '■ 



00677 

R 

502113 

R 


AND 

(377 

/mask CHARACTER BITS, 


00 7 00 

R 

342124 

R 


SAD 

(201 

/WAS "CNTR A" TYPED? 

o 

00701 

R 

741000 

A 


SKP 




00702 

R 

620713 

R 


JMP '5^ 

PSTSW4 

/NO. continue 


00 703 

R 

202013 

R 


LAC 

LCH04‘‘ 

/YES 

o 

00 70 4 

R 

740200 

A 


SHA 


/IS "ECHO HOLD" active? 


00703 

R 

620715 

R 


JMPi» 

DSTSW4 

/yes, IGNORE all "CNTR A'S", 

o 

00706 


777/// 

A 


LAW 



00707 

R 

042013 

R 


DAC 

LCiHO^ 

/NO. enable "ECHO HOLD", 


00710 

R 

042043 

R 


DAC 

KST0R6 



00711 

R 

202123 

R 


UAC 

(UECODL 


o 

00712 

R 

040713 



DAC 

05TSW4 



00713 

R 

202126 

R 


LAC 

(243 



00 714 

R 

600716 

R 


JHP 

RLC4 


o 

00713 

R 

000000 

A 

0STSW4 

0 

/ 

DAC 




00716 

R 

042047 

R 

REC4 

TUMP4 

/save character to be transmitted. 

o 

00717 

R 

202044 

R 


LAC 

TLMPil 



00720 

R 

302107 

R 


AND 

(7000 

/MASK SCANNER ADDRESS 


00721 

R 

342047 

R 


TAD 

TLMP4 


o 

00722 


342116 

R 


TAD 

( 4 0 0 


00723 

R 

4 0 1 6 4 3 

R 


XCT 

SLS4 

/transmit 


00724 

R 

777/77 

A 


LAW 



o 

00723 

r? 

042023 

R 


OAC 

SILSW4 


00726 

R 

6 0 03 7 2 

R 


JMP 

/ 

DHM 

QHKTR4 

/exit 

o 

00727 

R 

142023 

R 

CLRFG4 

SILSW4 


00730 

R 

401637 

R 


XCT 

STS4 



00731 

R 

600372 

R 


JMP 

CMKTR4 



o 


o 


o 


o 


.eject 


o 

o 

o 

o 

o 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




- - 

— 

... 

— 



■ - ^ - - ' 

- - 

■ ■■ ■ 


o 










o 


PAGE 14 


DC01EF 

^ SRC 

OCQl 

,-^EB SYSTEM EXERCISER 

TEST 



o 





/DECODE 

the selected teletype 
* 

OF ALL LIF^ITS 


o 



R 

542106 

R 

DECODE 

SAD 

(215 

/WAS »CR» typed to terminate? 



o 

007v53 

R 

600764 

R 


JMP. 

PECODA 

/YES, CHECK SELECTED TELETYPE? 


o 


00 7 3 4 

R 

542115 

R 


SAD 

(377 

/WAS RUBOUT TYPED? 




0073";? 

R 

6 0 0 7 6 0 

R 


JMP 

rubqut 

/YES, delete LAST CHARACTER, 



o 

00 7 36 

R 

042054 

R 


DAC 

TEMP9~ 

/SAVE CHARACTER 


o 


00737 

R 

502143 

R 


AMD 

(7 





00740 

R 

042053 

R 


DAC 

TEMP8 




o 

00741 

R 

202144 

R 


LAC 

(NOTABL’^l 

/address of CHARACTER TABLE 


o 


00742 

R 

042055 

R 


DAC 

TEMP10 





0074 3 

R 

442055 

R 


Wi 

TEMP10 




o 

00 74 4 

R 

222055 

R 


LAC^' 

TEMP10 



o 


00745 

R 

542054 

R 


SAD 

TEMP9' 

/sTO selected N0, 




00 7 4 6 

R 

600754 

R 


JMP 

CMPUTE 

/YES 



o 

00747 

R 

542145 

R 


SAD 

(267 

/END OF table? 


o 


00750 

R 

741000 

A 


SKP 


/YES, Illegal character 




00751 

R 

60B74v5 

R 


JMP 

1 ^6 




o 

0 0 752 

R 

202146 

R 

TYPEQM 

LAC 

(277 

/type ’?’ 


o 


00753 


622060 

R 


JMP<» 

TyPOATA 




o 

00754 

R 

202053 

R 

cmpute 

LAC 

TEMPB 



o 


00755 

R 

06^050 

R 


PAC« 

TEMP5 

/STORE N0, 




00756 

R 

202054 

R 


LAC 

TEMPV 



o 

o 

00757 

R 

622060 

R 


JHP'^ 

TYPDATA 

/ECHO BACK THE f N0, » 



00760 

R 

7777/7 

A 

RUBOUT 

LyAW 

^1 




o 

00 761 

R 

062050 

R 


DAC^^ 

TEMP5 



o 


00762 

R 

202147 

R 


LAC 

(257 

/type A »/f TO indicate RUBOUTi 




00 7 6 3 

R 

622060 

R 


JMP^y 

TYPDATA 




o 






/ 




o 






/ON terminating 

y 

CHECK THE selected TELETYPE FOR BEING AVAILABLE 



■ o 

00764 

R 

222050 

R 

PECOPA 

/ 

LAC-ii 

TEMP 5 



o 


00765 

R 

542150 

R 


SAD 

C "’1 

/was a channel selected? 




00766 

R 

6 0 0 7 7 6 

R 


JMP 

TAGA 

/NOi clear "ECHO HOLD" ACTIVE 



o 

00767 

R 

222051 

R 


LACi» 

TEMP6 

/=TO UNITS "ACTIVE" BUFFER 


o 


00770 

R 

562050 

R 


SAOiJ 

TEMP5 

/=To selected teletype? 




00771 

R 

600776 

R 


JHP 

TAGA 

/yes, exit 



o 

00772 

F? 

542150 

R 


SAD 

( ’"1 

/END OF "ACTIVE" TABLE? 


0 


007/3 


600752 

R 


JHP 

TYPEQM 

/yes, Illegal tty selected, type i?i 




00774 

R 

442051 

R 


ISH 

TEMP6 




o 

00775 

R 

600767 

R 


JMP 

1 >^6 



o 


00776 

R 

162052 

R 

TAG A 


TEMP7 

/clear "ECHO" 




00777 

R 

777777 

A 


LAW 





o 

01000 

R 

062056 

R 


DAC* 

TEMPI! 

/SET 'LOOP' counter to EXIT NEXT PASS 


o 


01001 

R 

622057 

R 


JMP^^ 

CKREC " 




o 






, EJECT 




o 

o 










o 

o 










o 

o 










o 

o 










o 



PAG[{ lb DCyipU SRC DCOl’^CB SYSTEM EXtRCjS^R TEST 

/ROUTINE TO FLOAT ’!« TELETYPE ON UNIT nX WHICE TYPING ON ALL OTHERS 
/ 


01002 

R 

1:)0 0 0 00 

A 

FLOATl 

0 



010 03 

R 

766000 

A 


LAW 

•^12000 


01004 

R 

042061 

R 


DAC 

loopa" 

/reinitial!2e; loop counter 

0100b 

R 

042020 

R 


OAC 

3ILSW1 

/SET 'SILENT' SWITCH. 

01006 

R 

2014/3 

R 


LAC 

ACTI VI 


01007 

R 

542120 

R 


SAD 

( .-^1 

/IS THIS UNIT 'ACTIVE'? 

01010 

R 

621002 

R 


JHP<^ 

FLOATl 

/N0» NO TTY'S 

01011 

R 

202101 

R 


LAC 

(RECl '■ 


01012 

R 

0405X4 

R 


DAC 

DSTSWl 

/reinitialize the 'RECEIVER' TEST 

01013 

R 

202014 

R 


LAC 

SjLTTi 


01014 

R 

101654 

R 


JMS 

R0T9L '■ 


0101b 

f'^ 

042045 

R 


DAC 

TEMP2 

/SET UP THE 'CURRENT' SILENT TTY 

01016 

R 

20203/ 

R 


LAC 

KST0R4 


01017 

R 

5421:^0 

R 


SAD 


/IS "ECHO HOLP" SELECTED? 

01020 

R 

741000 

A 


SKP 



01021 

R 

6 0 1 0 6 0 

R 


JHP 

SELCTl 

/YES, ECHO SELECTED TELETYPE, 

01022 

R 

222034 



L A C 

KSTORl 


01023 

R 

5421R0 

R 


SAD 

(-1 

/END OF "ACTIVE" TABLE? 

01024 

R 

101036 

R 


JMS 

SETAVl 

/YES, RESET "ACTIVE" TABLE 

0102b 

R 

222034 

R 


LAC^> 

KSTORi 

/GET NEXT TTY TO BE ECHOED 

01026 

R 

042014 

R 


DAG 

SILTTi 


01027 

R 

442034 

R 


IS2 

KSfORl 


01030 

R 

232045 

R 

fltia 

LAC 

TEMP2 " 


01031 

R 

542151 

R 


SAD 

r/77000 

/IS any tty now silent? 

01032 

R 

601035 

R 


JHP 

1^3 

/NO, EXIT, 

01033 


342116 

R 


TAD 

i 400 

/=Ta CLEAR THE 'TR' FLAG, 

01034 

R 

4 0 1 6 4 0 

R 


XCT 

3LSl 

/RESTART silent TTY 

0103b 

R 

621002 

R 


JMP«^ 

FLOATl 



, EJECT 



PAGt 16 


DC^^IEB SRC 


DCOl-PB SYSTEM EXERCISER TEST 


010 3 6 

R 

{;.) 0 0 0 W 0 

A 

setavi 

0 



01037 

R 

2020/4 

R 


LAC 

( ACTI VI 


0 1 fcH 0 


!>; 4 2 0 3 4 

R 


DAC 

KSTOR'l 


0 1 0 ^ i 


2014/4 

R 


lAC 

ACTI Vi+1 


010 4 2 

f? 

542150 

R 


SAD 

<-l 

/[S ONLY 11* teletype AVAILABLE? 

010 4 3 

R 

741000 

A 


SKP 



01044 

R 

621036 

R 


JHPtt 

SETAVI 

/NO, EXIT 

010 4 5 

R 

20203W 

R 


lAC 

LONEl 

/YES 

01046 

R 

740001 

A 


CMA 



01047 

R 

042030 

R 


DAC 

LONEl 


01050 

R 

751200 

A 


SNAICLA 


/FLOAT TTY? 

01051 

R 

202151 

R 



( 777000 

/YES, Float tty 

01052 

R 

042045 

R 


DAC 

TEMP2 

/NO, restart tty 

01053 

R 

740200 

A 


S2A 



010 5 4 

R 

621036 

R 


JMP* 

setavi 


010 55 

R 

7777/7 

A 


LAW 



01056 

R 

042014 

R 


DAC 

SiLTTl 


01057 

R 

621036 

R 


0HPi> 

SEf AVI 


01060 

R 

14206:1 

R 

SELCTl 

DJfM 

LQOPA 


01061 

R 

202037 

R 


LAC 

KST0R4 

/=TU selected teletype 

01062 

R 

042014 

R 


DAC 

siltti 


01063 

R 

1016:34 

R 


JMS 

R0T9L 


0106 4 

R 

542045 

R 


sad 

TEMP2 

/IS SELECTED TTY ALREADY SILENT? 

01065 

R 

621002 

R 


JMPi^ 

FLOAT! 

/YES, IGNORE AND EXIT, 

01066 

R 

601030 

R 


JMP 

FLTIA 



, EJECT 



PAGE 1/ DCE'lEB SRC OCOl-^EB SYSTEM EXERCISER TEST 

/ROUTINE TO FLOAT '1' TELETYPE ON UNIT #2 WHILE TYPEING ON ALL OTHERS 
/ 


01067 

01070 

R 

R 

000000 

774000 

A 

A 

FUQAT2 

0 

LAW 

■'’4000 


01071 

R 

042062 

R 


DAC 

LOOPB 

/REINITIALISE LOOP COUNTER 

01072 

R 

042021 

R 


DAC 

SILSW2 

/SET 'SILENT* SWITCH. 

01073 

R 

201504 

R 


LAC 

ACTIV2 


0107 4 

R 

542150 

R 


SAD 

{ «1 

/IS this unit 'ACTIVE'? 

01075 

R 

621067 

R 


jmp* 

FLOAT2 

/NO. NO TTY'S 

01076 

R 

202102 

R 


LAC 

(REC2' 


01077 

R 

040567 

R 


DAC 

DSTSW2 


01100 

R 

202015 

R 


LAC 

51LTT2 

/=TO N0, OF SILENT TTY, 

01101 

R 

101654 

R 


JMS 

RbT9L‘ 

01102 

R 

042045 

R 


DAC 

TEMP2 

/SET UP TO RESTART TTY, 

01103 

R 

202040 

R 


LAC 

KSTQR!? 


01104 

R 

542150 

R 


SAD 

<^1 

/IS "ECHO HOLD" MODE SELECTED? 

01105 

R 

741000 

A 


SKP 



01106 

R 

601145 

R 


JMP 

SELCT2 

/YES, ECHO SELECTED TELETYPE, 

01107 

R 

222035 

R 


LAC>^ 

K5TQR2 


01110 

R 

542150 

R 


SAD 

c -^i 

/END OF "ACTIVE" TABLE? 

01111 

R 

101123 

R 


JHS 

SETAV2 

/YES, RESET 'ACTIVE' TABLE 

01112 

R 

222035 

R 


LAC^* 

K5T0R2 

/GET NEXT TTY TO BE SELECTED, 

01113 

R 

042015 

R 


DAC 

SiLTT2 

01114 

R 

442035 

R 


ISH 

KST0R2 


01115 

R 

202045 

R 

FLT2A 

LAC 

TEMP2’ 


01116 

R 

542151 

R 


SAD 

{ 777000 

/IS A tty now silent? 

01117 

R 

601122 

R 


JMP 

, +3 

/NO, EXIT 

01120 

R 

342116 

R 


TAD 

(400 

/=TO clear the 'TR' FLAG, 

01121 

R 

401641 

R 


XCT 

SLS2 

/YES, RESTART SILENT TTY, 

01122 

R 

621067 

R 


JMP''* 

, EJECT 

FL0AT2 




PAGE 


la 


DC01£6 

- SRC 

PCOl 

SYSTEM exerciser 

TEST 



0U^v5 

R 

000000 

A 

SETAV2 

0 





01124 

R 

202076 

R 


EAC 

( ACT! V2 




0 1 1 2 13 

R 

042036 

R 


DAC 

KSTOR'^ 




01126 

R 

201606 

R 


lAC 

ACTI V2 + 1 
■ 




01127 

R 

542160 

R 


SAD 


/IS 

ONLY H' 

TELETYPE AVAILABLE? 

0116 0 

R 

741000 

A 


SKP 





01131 

R 

6 2 1 1 2 3 

R 



SETAV2 

/NO, 

EXIT 


01132 

R 

202031 

R 


LAC 

LaNE2' 




01133 

R 

740001 

A 


CM A 





01134 

R 

042031 

R 


PAC 

L0NE2 




0113S 

R 

761200 

A 


SNA JCLA 





01136 

R 

202161 

R 


LAC 

( 777000 




01137 

R 

042046 

R 


DAC 

TEMP2“ 




01140 

R 

740200 

A 


S2A 





01141 

R 

621123 

R 


J M P 

SETAV2 




01142 

R 

777/77 

A 


LAW 

'“i 




01143 

R 

(342016 

R 


DAC 

SILTTii 




01144 

R 

621123 

R 


JMP* 

SETAV2 




0114‘3 

R 

142062 

R 

SELCT2 

DHM 

LPOPB ■ 




01146 

R 

202040 

R 


LAC 

KSTQRi? 

/ = TO 

selected 

TELETYPE 

01147 

R 

042016 

R 


DAC 

SILTTii 




01160 

R 

101664 

R 


0MS 

R0T9L 




01161 

R 

542046 

R 


SAD 

TEMP2 




01162 

R 

621067 

R 


JMP'** 

FLOATS 




0 1163 

R 

601116 

R 


JMP 

, EJECT 

FLT2A' 






Page iv ucmieb src ocoir-EB system exerciser test 

/ROUTINE TO float TELETYPE ON UNIT #3 WHILE TYPING ON ALL OTHERS 
/ 



R 

000000 

A 

FL0AT3 

0 



i 

0 lib!? 

R 

7660U0 

A 


UAW 

^12000 



0:Ub6 

R 

042063 

R 


DAC 

udopc* 

/reinitialise loop counter 

0Ub7 

R 

042022 

R 


DAC 

STUSW3 

/SFT 

'SILENT' SWITCH, 

01160 

R 

231blb 

R 


I.AC 

ACTIVS 



01161 

■R 

5421b0 

R 


SAD 

^^1 

/IS 

THIS UNIT 'ACTIVE'? 

01162 

R 

6211b4 

R 



FDOAT3 

/NO# 

NO TTY'S 

01163 

R 

202103 

R 


DAC 

(Ne;c3" 



01164 

R 

040642 

R 


DAC 

PSTSW3 



0116b 

R 

202016 

R 


DAC 

SIUTT3 



01166 

R 

10l6b4 

R 


DMS 

R0T9D 



01167 

R 

042046 

R 


DAC 

te;mp2 



0 1 1 7 0 

R 

202041 

R 


DAC 

K5T0R6 



01171 

R 

5421b0 

R 


SAD 


/IS 

"ECHO HOLP" MODE SELECTED? 

01172 

R 

741000 

A 


SKP 




01173 

R 

601232 

R 


JMP 

se;dcT3 

/yds 

, ECHO SELECTED TELETYPE 

01174 

R 

222036 

R 


DACi^ 

kstor3 



011/b 

R 

b421b0 

R 


SAD 


/END 

OF "ACTIVE" TABLE? 

01176 

R 

101210 

R 


JMS 

SDTAVs5 

/YES 

■ RESET "ACTIVE" TABLE, 

01177 

R 

222036 

R 


LAC'.^ 

KST0R5 

/GET 

NEXT TTY TO BE ECHOED, 

01200 

R 

042016 

R 


DAC 

SILTT3 



01201 

R 

442036 

R 


IS'i 

kstor5 



01202 

R 

20204b 

R 

FLT3A 

UAC 

TtMP2" 



01203 

R 

p421bi 

R 


sad 

C7770D0 

/IS 

A tty now SILENT? 

01204 

R 

601207 

R 


sIMP 


/NO# 

EXIT 

0120b 

R 

342116 

R 


TAD 

(400 

/ = TO 

clear THE 'TR' FLAG, 

101206 

R 

4016^2 

n 


XCT 

SLS3 

/yes 

, RESTART SILENT TTY, 

01207 

R 

62lib4 

R 


DHP» 

FUOAT3 




■ EJECT 



PAGE 20 


DC01Et 

i SRC 

DCOX-EB SYSTtM EXtRCISER TEST 

01210 

R 

1:1 0 0 0 0 E:5 

A 

SCTAV3 0 



01211 

R 

2020/6 

R 

UAC 

( ACTIV3 


01212 

R 

0 4 2 0 3 6 

R 

OAC 

K S T 0 R J 


01213 

R 

201i?16 

R 

UAC 

ACTIVJ+l 


01214 

R 

542150 

R 

SAD 


/THIS The onlv tty available? 

01215 

R 

741000 

A 

SKP 



01216 

R 

621210 

R 


SLTAVJ 

/NO, EXIT 

01217 

R 

202032 

R 

LAC 

L0NE3' 


01220 

R 

7 4 0 0 1 

A 

CMA 



01221 

R 

042032 

R 

DAC 

UPNE3 


01222 

R 

751200 

A 

SNAJCLA 


/float tty? 

01223 

R 

202151 

R 

LAC 

(777000 

/YES, Float tty 

01224 

R 

042045 

R 

DAC 

TLMP2^' 

/NO, restart tty, 

01225 

R 

740200 

A 

S2A 



01226 

R 

62l2i0 

R 

JMP^ 

SETAV3 


01227 

R 

777777 

A 

LAW 



01230 

R 

042016 

R 

DAC 

Si'LTTJ 


01231 

R 

621210 

R 

JMP^ 

SETAVS 


01232 

R 

142063 

H 

SELCT3 DHM 

LOOPC' 


01233 

R 

202041 

R 

LAC 

KSTOR6 

/=TO selected teletype 

01234 

R 

0 4 2 0 1 o 

R 

DAC 

silttS 


01235 

R 

101654 

R 

JMS 

ROTVL 


01236 

R 

542045 

R 

SAD 

TEMP? 

/IS selected tty already SILENT 

01237 

R 

621154 

R 

JMP-i^ 

FUQAT3 

/yes. Exit 

01240 

R 

601202 

R 

JMP 

FLT3A 

/NO« restart last tty, 





/ROUTINE TO float 11' TELETYPE 
! 

ON UNIT #1 WHILE typing ON ALL OTHERS 

01241 

R 

000000 

A 

FLOAT4 0 



01242 


766000 

A 

LAW 

-12000 


01243 

R 

042064 

R 

DAC 

Lciopu' 

/reinitialize loop counter. 

01244 

R 

042023 

R 

DAC 

SiLSW4 


01245 

R 

201526 

R 

UAC 

ACTI V4 


01246 

R 

542150 

R 

SAD 

(■'^1 

/IS THIS unit 'ACTIVE'? 

01247 

R 

621241 

R 


FL0AT4 

/NO, NO TTY'S 

01250 

R 

202104 

R 

LAC 

(REC4 


01251 

R 

040715 

R 

DAC 

USTSW4 


01252 

R 

202017 

R 

LAC 

SIUTT4 


01253 

R 

101654 

R 

WHS 

ROTgL" 


01254 


042045 

R 

DAC 

TEMP2 


01255 

R 

202043 

R 

LAC 

KST0R6 


01256 

R 

542150 

R 

SAD 

( "i 

/IS "ECHO HOLO" MODE SELECTED? 

01257 

R 

741000 

A 

SKP 


/NO, CONTINUE 

01260 

R 

60131/ 

R 

JMP 

SELCT4 

/YES, ECHO selected TELETYPE, 

01261 

R 

222042 

R 

LAC<» 

KST0R7 


01262 

R 

542150 

R 

SAD 

(-1 

/END OF "ACTIVE2 TABLE? 

01263 

R 

1012/5 

R 

JMS 

SETAV4 

/YES, RESET "ACTIVE" TABLE, 

01264 

R 

222042 

R 

UAC'*^ 

KST0R7 

/GET NEXT TTY TO BE ECHOED? 

01265 

R 

042017 

R 

DAC 

S‘iLTT4 


012 66 

R 

442042 

R 

\^'l 

KSTOR/ 


0126/ 

R 

20 20 4 5 

R 

FLT4A lac 

TEMP2 ' 


01270 

R 

542151 

R 

SAD 

(777000 

/IS A tty now silent? 

01271 

R 

6012/4 

R 

JMP 

1 ^ 

/NO, EXIT 

01272 

R 

342116 

R 

TAD 

(400 

/=T0 clear THE 'TR' FLAG, 
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O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 


0127S R 4016'i4 R XCT SLS4 /YES, 

01274 R 621241 R JMP« FL0AT4 

.EJECT 


RESTART silent TTY, 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



PAGE 22 


DC01EO 

SRC 

DCOl 

,-EB SYSTEM EXERCISER 

TEST 

0 12 7 5 

R 

C' 0 0 0 0 0 

A 

SETAV4 

0 



012/6 

R 

2020/7 

R 


EAC 

UGTI V4 


012 7 7 

R 

042042 

R 


OAC 

KSTQR/ 


01300 

R 

20152/ 

R 


LAC 

ACTI V4 + 1 


01301 

R 

542150 

R 


SAD 


/THIS The only tty available? 

01302 

R 

741000 

A 


SKP 



01303 

R 

6212/5 

R 


JMPi^ 

SETAV4 

/NO, EXIT 

01304 

R 

202033 

R 


LAC 

LQNE4'' 


01305 

R 

740001 

A 


cma 



01306 

R 

042033 

R 


DAC 

LDNE4 


01307 

R 

751200 

A 


snaicla 


/FLOAT TTY? 

01310 

R 

202151 

R 


lac 

(777000 

/yes, Float tty 

01311 

R 

042045 

R 


DAC 

TeMP2“” 

/MO, restart jty, 

01312 

R 

740200 

A 


SHA 



01313 

R 

621275 

R 


JMP^^ 

SETAV4 


01314 

R 

7777/7 

A 


LAW 

"’i 


01315 

R 

042017 

R 


DAC 

3ILTT4 


01316 

R 

621275 

R 


JMP«^ 

3ETAV4 


0 X 3 1 7 

R 

142064 

R 

SE1.CT4 

D2M 

ldopd" 


01320 

R 

202043 

R 


LAC 

KST0R6 

/=TO selected teletype. 

01321 

R 

04201/ 

R 


DAC 

SluTT4 


01322 

R 

1 165 4 

R 


JMS 

R(iT9L” 


01323 

R 

542045 

R 


sad 

TEMP2 

/IS SELECTED TTY ALREADY SILENT? 

01324 

R 

621241 

R 



FL0AT4 

/yes, exit 

01325 

R 

60126/ 

R 


JMP 

FLT4A 

/NO» RESTART LAST TTY, 
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o 


OCOl-EB SYSTEM EXERCISER TEST 

/transmit a character to initialize all teleprinters, 
/ 



0 3, 3 2 6 

R 

000000 

A 

TRNSMT 

0 



o 

01327 

R 

777740 

A 


LAW 

r-4 0 



01330 

R 

042044 

R 


DAC 

TEMPI 

/=T0 132' teletypes 

o 

01331 

R 

202152 

R 


LAC 

(SCNTAB 


01332 

R 

042045 

R 


DAC 

TEMP2 

/= TO Scanner address table 


0 3, 3 3 3 


222045 

R 

TRNSl 

LAC<^ 

TEMP2 

/scanner address 


0133 4 

R 

542150 

R 


sad 

(-1 

/END OF table? 

o 

0 3-335 

R 

621326 

R 



THNSMT 

/yes, exit 


01336 

R 

342046 

R 


TAD 

TEMP3" 

/=T0 char, TO BE transmitted, 

o 

01337 

R 

4 0 16 40 



XCT 

SCSI 

/TRANSMIT TO UNIT Ui 

01340 

R 

401641 

R 


XCT 

SLS2 

/UNIT #2 


0i3n 

R 

401642 

R 


XCT 

SLS3 

/UNIT #3 


013‘42 

R 

401643 

R 


XCT 

SLS4 

/UNIT #4 

o 

01343 

R 

442045 

R 


IS2 

TEMP2 

/increment SCANNER ADDRESS 


01344 

R 

601333 

R 


JMP 

TRNSl 


o 





/SET UP 

THE ’ 

'ASCII’ CHARACTER 

Table for all teleprinters, 






/ 



01345 

R 

000000 

A 

SETPRT 

0 




01346 

R 

777740 

A 


LAW 

•’40 


o 

01347 

R 

042044 

R 


DAC 

TEMPI 



01350 

R 

2021U 

R 


LAC 

(TABLLl 

/UNIT #1 character table 

o 

01351 

R 

042045 

R 


DAC 

TEMP2^ 

01352 

R 

2021X7 

R 


LAC 

(PRTTAB 

/=T0 THE address OF 'CHARACTER' 


01353 


062045 

R 


DAC<v 

TEMP2 

/INITIALI2E ALL '32' TTY'S, 


01354 

R 

442045 

R 


iSi 

TEMP2 

/increment TABLE POINTER 

o 

0135 5 

R 

442044 

R 


ISI 

TEMPI 



01356 

R 

601353 



JMP 

,’.3 


o 

01357 

R 

621345 

R 


JMP^^ 

SETPRT 
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o 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 
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O 


/CHARACTER EQUIVALENCE TABLE 


/ 




0 i'; 0 2 2 

A 

PRTTAB 

212 

/ 

LINE FEED 

o 

01.561 

R 000304 

A 


304 

/ 

D 


01362 

R 000303 

A 


303 

/ 

C 


0 X 3 6 3 

R 000317 

A 


317 

/ 

0 

o 

0136 4 

R 000261 

A 


261 

/ 

1 


01365 

R 000255 

A 


255 

/ 

- 


01366 

R 000305 

A 


305 

/ 

r. 

o 

01367 

R 000302 

A 


302 

/ 

B 


013/0 

R 000240 

A 


240 

/ 

space 


01371 

R 000301 

A 


301 

/ 

A 

c 

01372 

R 000302 

A 


302 

/ 

B 


013/3 

R f j 0 0 3 0 \5 

A 


303 

/ 

C 


0 1 3 7 4 

R 0 0 03 0 4 

A 


304 

/ 

P 

o 

01375 

R 000305 

A 


305 

/ 

E 


01376 

R 000306 

A 


306 

/ 

F 


01377 

R 00030/ 

A 


307 

/ 

G 

o 

01400 

R 000310 

A 


310 

/ 

H 


01401 

R 000311 

A 


311 

/ 

I 


01402 

R 000312 

A 


312 

/ 

P 

o 

0 14 03 

R 000313 

A 


313 

/ 

K 


01404 

R 000314 

A 


314 

/ 

L 


014 05 

R 000315 

A 


315 

/ 

M 

o 

01406 

R 000316 

A 


316 

/ 

N 


0 1 4 0 7 

R 000317 

A 


317 

/ 

0 


01410 

R 000320 

A 


320 

y 

P 

o 

01411 

R 000321 

A 


321 

/ 

Q 


01412 

R 000322 

A 


322 

y 

R 


01413 

R 000323 

A 


323 

/ 

S 

o 

01414 

R 000324 

A 


324 

/ 

T 


01415 

R 000325 

A 


325 

/ 

M 


01416 

R 000326 

A 


326 

/ 

V 

o 

01417 

R 000327 

A 


327 

/ 

w 


01420 

R 000330 

A 


330 

/ 

X 


01421 

R 000331 

A 


331 

/ 

Y 

o 

01422 

R 000332 

A 


332 

/ 

2 


01423 

R 000240 

A 


240 

/ 

space 


014 24 

R 000260 

A 

N0TABL 

260 

/ 

0 

0 

01425 

R 000261 

A 


261 

/ 

1 


01426 

R 0 00 262 

A 


262 

/ 

2 


01427 

R 000263 

A 


263 

/ 

3 

o 

014 3 0 

R 000264 

A 


264 

/ 

4 


01431 

R 000265 

A 


265 

/ 

5 


01432 

R 000266 

A 


266 

/ 

6 

o 

01433 

R 00026/ 

A 


267 

/ 

7 


0143 4 

R 0002/0 

A 


270 

/ 

8 


01435 

R 000271 

A 


271 

/ 

9 

o 





/ 
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o 
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014 3 6 

R 

Li (.5 0 2 4 0 

A 


240 


/ 

SPACE 

01437 

R 

000241 

A 


241 


/ 

t 

t 

014 4 0 

R 

000242 

A 


242 


/ 

If 

014 4 1 

R 

000243 

A 


243 


/ 

n 

014 42 

R 

000244 

A 


244 


/ 

$ 

01443 

R 

000245 

A 


245 


/ 

% 

014 4 4 

R 

000246 

A 


246 


/ 


01445 

R 

000247 

A 


247 


/ 

f 

01446 

R 

Li U 0 2 5 0 

A 


250 


/ 

( 

014 4 7 

R 

000251 

A 


251 


/ 

) 

01450 

R 

000252 

A 


252 


/ 


01451 

R 

000253 

A 


253 


/ 

+ 

01452 

R 

000254 

A 


254 


/ 

1 

01453 

R 

0 0 0 25 6 

A 


256 


/ 

ft 

01454 

R 

000257 

A 


257 


/ 

/ 

01455 

R 

0002/2 

A 


272 


/ 

; 

01456 

R 

0002/3 

A 


273 


/ 


01457 

R 

0002/4 

A 


274 


/ 

< 

01460 

R 

0002/5 

A 


275 


/ 

s 

01461 

R 

0002/6 

A 


276 


/ 

> 

01462 

R 

0002/7 

A 


277 


/ 

? 

0 1 4 6 3 

R 

000300 

A 


300 


/ 


01464 

R 

000333. 

A 


333 


/ 

i; 

01465 

R 

000334 

A 


334 


/ 

\ 

0 1 4 6 6 

R 

000335 

A 


335 


/ 

3 

01467 

R 

000336 

A 


336 


/ 

t 

01470 

R 

00033/ 

A 


337 


/ 

■ 

01471 

R 

000215 

A 


215 


/ 

CARRIAGE RETURN 

014/2 

R 

0 0 0 000 

A 


0 

/ 

, BLOCK 11 




01473 

R 


A 

AGTIVl 




01504 

R 


A 

ACTIV2 

.BLOCK 11 




01515 

R 


A 

ACTIV3 

.BLOCK 11 




01526 

R 


A 

ACTIV4 

.BLOCK U 




01537 

R 


A 

tablei 

.BLOCK 10 




01547 

R 


A 

TABEE2 

.BLOCK 10 




01557 

R 


A 

TABLES 

.BLOCK 10 




01567 

R 


A 

tabled 

.BLOCK 10 
/ 

1 ADDRESS table 

/ 

0 








/scanner 




01577 

R 

000000 

A 

scntab 

/TTY 

ii^^ 


01600 

R 

001000 

A 


1000 

/in 



01601 

R 

002000 

A 


2000 

/#2 



016 0 2 

R 

003000 

A 


3000 

/^3 



01603 

R 

004000 

A 


4000 

/#4 



01604 

R 

005000 

A 


5000 

/if 3 



01605 

R 

006000 

A 


6000 

/U6 



01606 

R 

007000 

A 


7000 

/U7 



01607 

R 

777777 

A 


777777 
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/dcoI'^eb iot list 

/ 

/SKIP ON scanner PLAG 
/ 



01610 

R 

704551 

A 

SSFl 

704551 

/unit -in 

1 

01611 

R 

7.0 4 411 

A 

SSF2 

704411 

/m 

o 

0161Ji 

R 

704451 

A 

SSF3 

704451 

/if^ 


01610 

R 

704511 

A 

SSF4 

704511 

/ 

scanner DATA AND C 

/^^ 

o 





/REAP 

LEAR THE scanner AND 


01614 

R 

704552 

A 

RSDl 

704552 

/UNIT #1 

o 

01615 

R 

704412 

A 

RSD2 

704412 


01616 

R 

704452 

A 

RSD3 

704452 

/r^ 


01617 

R 

704512 

A 

RSP4 

704512 

/ 

LE THE scanner AND 
/ 

704544 

/#4 

o 





/DiSAB 

CLEAR ALL ^UAGS, 


01620 

R 

704544 

A 

DISi 

/UNIT #1 

o 

01621 

R 

704404 

A 

0IS2 

704404 

/#2 


01622 

R 

704444 

A 

0IS3 

704444 

/#3 


01623 

R 

704504 

A 

DIS4 

704504 

///4 

o 





/ 







/LOAD 

SCANNER APURLSS 

/ 

704561 


o 

01624 

R 

704561 

A 

PSAl 

/UNIT ?^^1 


01625 

R 

704421 

A 

USA2 

704421 

/U2 

o 

01626 

R 

704461 

A 

LSA3 

704461 


01627 


704521 

A 

LSA4 

704521 

7 

scanner data 


o 





/LOAD 


01630 

R 

704562 

A 

LSPl 

/ 

704562 

/unit ^^1 



01631 

R 

704422 

A 

LSP2 

704422 

/#2 

o 

01632 

R 

704462 

A 

LS03 

704462 

/#3 

; 

0163 3 

R 

704522 

A 

LSD4 

704522 

/ 

SCANNER flag AND 
/ 

704564 

/^4 

o 





/clear 

START scanner 

o 

01634 

R 

704564 

A 

STSl 


01635 

R 

704424 

A 

STS2 

704424 


j 

0 16 36 

R 

704464 

A 

STS3 

704464 


' 

01637 

R 

704524 

A 

STS4 

704524 

/^f 

o 





/STOP 

/ 

scanner# LOAD DATA 
/ 

704567 ^ 

AND START SCANNER 

o 

01640 

R 

704567 

A 

$lsi 

/UNIT #1 


01641 

R 

704427 

A 

SLS2 

70442/ 


o 

01642 

H 

704467 

A 

SLS3 

704467 

/#3 

01643 

R 

704527 

A 

SLS4 

704527 

/#4 


/ 
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o 
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o 
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o 

o 
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o 


o 
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PCMTEB SRC 


/rotate contains op »AC» »9f times right EXIT WITH DATA »AC» 


0 .1 6 A 4 

R 

000000 

A 

R0T9R 

0 



0164S 

R 

502107 

R 


AND 

(7000 


0X646 

R 

746020 

A 


clurtr 



01647 

R 

742020 

A 


RTR 



016ip0 

R 

742020 

A 


rtr 



01661 

R 

742020 

A 


rtr 



01660 

R 

740020 

A 


RAR 



01663 

R 

621644 

R 


J M P 

R0T9R 






/ROTATE 

contains of »AC’ 9 

m 
— 1 

01664 

R 

000000 

A 

R0T9L 

0 



01665 

R 

502163 

R 


AND 

(777 


01666 

R 

746010 

A 


CLURTE 



01667 

R 

742010 

A 


rte 



01660 

R 

742010 

A 


rte 



01661 

R 

742010 

A 


RTE 



01662 

R 

7400X0 

A 


RAE 



01663 

R 

621664 

R 



RQT9E 






/TEST FOR DATA 

»SW4» WHICH 

INHIBITS the DC01r.£B TEST, 

01664 

R 

000000 

A 

HOLDSW 

0 



01666 

R 

750004 

A 


IAS 



01666 

R 

500010 

R 


AND 

fMTASW 

/DATA SW4 

01667 

R 

741ZSS0 

A 


SNA 


/IS SWITCH SET? 

01670 

R 

621664 

R 


JMP<» 

HOUDSW 

/NO, EXIT 

01671 

R 

200161 

R 


EAC 

USTSW0 


01672 

R 

042071 

R 


DAC 

SAVDST 

/SAVE RETURN ADDRESS 

01673 

R 

2021^'^ 

R 


EAC 

CHOLP,l 


01674 

R 

040161 

R 


DAC 

PSTSW0 


01676 

R 

101702 

R 


JMS 

CLRTRN 

/CLEAR TRN flags AND SAVE DATA 

01676 

R 

601732 

R 


OMP 

EXITM6 

/EXIT ',,51 

01677 

R 

2020H 

R 

HOLOil 

EAC 

SAVDSf 


01700 

R 

040161 

R 


DAC 

PSTSW0 , 

/RESTORE RETURN ADDRESS, 

2170J. 

R 

601666 

R 


JMP 

/ 

0 

HO|,DSW*l 

/RE„TEST SWITCH, 

01702 

R 

000000 

A 

GLRTRN 



01703 

R 

401610 

R 


XCT 

SSFl 

/SKIP ON SCANNER flag, UNIT #1 

01704 

R 

601707 

R 


JMP 

,*3 


01706 

R 

40l6i4 

R 


XCT 

RSDl 

/READ SCANNER DATA, 

01706 

R 

042024 

R 


DAC 

HUDTTl 

/SAVE Data, 

01707 

R 

401611 

R 


XCT 

SSF2 

/SKIP ON SCANNER FLAG, UNIT #2, 

01710 

R 

601713 

R 


OMP 

1+3 


01711 

R 

401616 

R 


XCT 

RSD2 

/READ Scanner data, 

01712 

R 

042026 

R 


DAC 

HEDTT2 

/SAVE data, 

01713 

R 

40165,2 

R 


XCT 

SSF3 

/SKIP ON scanner FLAGiUNIT #3, 

01714 

R 

601717 

R 


OHP 

1 +3 

01716 

R 

401616 

R 


XCT 

RSP3 

/read Scanner data, 

01716 

R 

042026 

R 


DAC 

HLOTT3 

/SAVE data, 

01717 

R 

401613 

R 


xqT 

SSp4 

/SKIP ON scanner FLAG, UNIT #4 

01720 

R 

601723 

R 


JMP 

,*3 


01721 

R 

401617 

R 


XCT 

RS04 

/READ Scanner data, 

01722 

R 

042027 

R 


DAC 

HUDTT4 

/SAVF DATA, 

017Z3 

R 

621702 

R 


JMPi* 

CERTRN 



lEJECJ 
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/SET UP TO TYPE 'OONEI, 


01724 

R 

777774 

A 

EXITM4 t,AW 

n 4 


01725 

R 

040020 

R 

DAC 

SYSERR 


01726 

R 

140021 

R 

DHM 

syserh+1 


01727 

R 

140022 

R 

DHM 

ERGODt 


01730 

R 

100450 

R 

JMS 

CiSFLG 

/disable and GLEAR scanner flags 

01731 

R 

600222 

R 

JMP 

£MT 






/SeiUP FOR 

LXIT, 


01732 

R 

777773 

A 

EXnM5 LAW 

-«5 


01733 

R 

040020 

R 

DAC 

SYSERR 


01734 

R 

140021 

R 

DZM 

syserr+1 


0i735 

R 

140022 

R 

D2M 

ENCODE 


01736 

R 

600222 

R 

JMP 

IXIT 






/EXIT FOR A »NO 

rtFUG condition, 


01737 

R 

705512 

A 

NqFLAG 705512 


/test For 'api ' <rpl) 

01740 

R 

741100 

A 

SPA 


/IS 'API' ON, 

01741 

R 

602001 

R 

JMP 

ERROR2 

/YES, 'APp ERROR, 

01742 

R 

771777 

A 

LAW 

nl 

/NO 

01743 

R 

620144 

R 

JMP'> 

SERVCE 
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/ERRORl, DATA TRANSFER ERROR, 

/ 


o 

01744 

R 

000000 

A 

ERRORl 0 



01745 

R 

200151 

R 

LAC 

USTSW0 



01746 

R 

042067 

R 

DAC 

SAVEPC 



01747 

R 

777776 

A 

LAW 

^^2 


o 

01750 

R 

040020 

R 

DAC 

SYSERR 



01751 

R 

202155 

R 

lAC 

(i 

/ERROR CODE 

o 

01752 

R 

040022 

R 

DAC 

EHCODE 


01753 

R 

7777/4 

A 

LAW 

-,4 



01754 

R 

040021 

R 

DAC 

ERCODtrl 



01755 

R 

202044 

R 

LAC 

TEMPI 


o 

01756 

R 

502107 

R 

AND 

r/000 

/MASK SCANNER ADDRESS 


01757 

R 

3420/3 

R 

TAD 

UNIT 

/ADO FAILING UNIT N0, 

o 

01760 

R 

040023 

R 

DAC 

ERCOPE+1 

/#li scanner ADDRESS, 

01761 

R 

222046 

R 

LAC* 

TEHP3 


01762 

R 

040024 

R 

DAC 

ERC00E*2 

/#2, TRANSMITTED DATA, 

o 

01763 

R 

202044 

R 

LAC 

TEMPI 

01764 

R 

502115 

R 

AND 

<377 



01765 

R 

040025 

R 

DAC 

ERq0PE*3 

/ffs, received data, 


01766 

R 

202iB6 

R 

LAC 

(ERENTER 


o 

01767 

R 

040151 

R 

DAC 

PSTSW0 



01770 

R 

101702 

R 

JMS 

CLRTRN 

/clear ALL other TRN FLAGS 

o 

0X773, 

R 

600222 

R 

DMP 

EXIT 




/ENTER HERE AFTER PRINTING 

ERROR, 


01772 

R 

10X702 

R 

ERENTER JMS 

CLRTRN 


o 

01773 

R 

200020 

R 

LAC 

SYSERR 


01774 

R 

542157 

R 

SAD 

(«2 

/has error been printed? 


01775 

R 

600222 

R 

JMP 

EXIT 

/NO, EXIT 


01776 

R 

202067 

R 

LAC 

SAVEPC 


o 

01777 

R 

040151 

R 

DAC 

PSTSW0 



02000 

R 

621744 

R 

JMP* 

ERRORI 


o 





/ERR0R2, 'API' 

INtERBUPTED 

WITH NO flags set. 

02001 

R 

7777/6 

A 

ERR0R2 law 

•^2 


02002 

R 

040020 

R 

DAC 

SYSERR 



02003 

R 

202X60 

R 

LAC 

(2 

/ERROR CODE 

o 

02004 

R 

040022 

R 

DAC 

ERCODE 



02005 

R 

777777 

A 

LAW 

-i 


o 

02006 

R 

040021 

R 

DAC 

ERCODE-l 


02007 

R 

600222 

R 

JMP 

, EJECT 

exit 




AND SAVE DATA 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


u 



o 
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dc0ie;b 

‘ SRC 

DCQl 


o 

02010 

R 

000000 

A 

ECHOl 

0 

o 

02011 

R 

000000 

A 

0CHO2 

0 



02012 

R 

000000 

A 

ECH03 

0 

0 

o 

02013 

R 

000000 

A 

ECH04 

0 

02014 

R 

000000 

A 

SICTTI 

0 



02015 

R 

000000 

A 

SIUT2 

0 

o 

o 

02016 

R 
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